home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / ModiFone.cpt / ModiFone / card_3477.txt < prev    next >
Text File  |  1987-10-05  |  8KB  |  328 lines
  1. -- card: 3477 from stack: in
  2. -- bmap block id: 3773
  3. -- flags: 4000
  4. -- background id: 2792
  5. -- name: O'Donnell's Phone 2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the time into bkgnd field "loc time"
  9. end openCard
  10.  
  11.  
  12.  
  13. -- part 2 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=351 top=223 right=270 bottom=453
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Area Codes
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   visual effect scroll left
  28.   put empty into HoldAreaCodes
  29.   push card
  30.   go to stack Modifone's Area Codes
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 4 (button)
  36. -- low flags: 00
  37. -- high flags: 0000
  38. -- rect: left=43 top=36 right=174 bottom=230
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Dial 
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   global dialNumber, dialArea, HoldAreaCode
  50.  
  51.   put HoldAreaCode into dialArea
  52.   put HoldAreaCode into field "long dist preamble"
  53.  
  54.   if first char of the message box is in "0123456789("
  55.   then dial the message box
  56. else
  57.   Ask "What Number?"
  58.   dial it
  59. end if
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 7 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=416 top=42 right=69 bottom=451
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 11045 / 11045
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Home
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual effect iris close
  79.   put empty into HoldAreaCode
  80.   go home
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 9 (button)
  86. -- low flags: 00
  87. -- high flags: E006
  88. -- rect: left=65 top=228 right=246 bottom=227
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Modem (tone dialing)
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   set hilite of button "speaker (tone dialing)" to false
  100.   set hilite of button "modem (tone dialing)" to true
  101.   set hilite of button "modem (pulse dialing)" to false
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 10 (button)
  107. -- low flags: 00
  108. -- high flags: A006
  109. -- rect: left=65 top=211 right=229 bottom=227
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Speaker (tone dialing)
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   set hilite of button "speaker (tone dialing)" to true
  121.   set hilite of button "modem (tone dialing)" to false
  122.   set hilite of button "modem (pulse dialing)" to false
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 11 (button)
  128. -- low flags: 00
  129. -- high flags: A006
  130. -- rect: left=65 top=245 right=263 bottom=227
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 3
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Modem (pulse dialing)
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   set hilite of button "speaker (tone dialing)" to false
  142.   set hilite of button "modem (tone dialing)" to false
  143.   set hilite of button "modem (pulse dialing)" to true
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 18 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=43 top=174 right=204 bottom=230
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Dial 
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   put "" into background field id 3
  163.   if first char of the message box is in "0123456789("
  164.   then dial the message box
  165. else
  166.   Ask "Dial what number?"
  167.   dial it
  168. end if
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 21 (button)
  174. -- low flags: 00
  175. -- high flags: 8003
  176. -- rect: left=245 top=249 right=270 bottom=347
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Modem Offline
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   send "dial " & quote & " ATH " & quote & " with modem " & quote & " ATZ " & quote to HyperCard
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 22 (button)
  193. -- low flags: 00
  194. -- high flags: 8003
  195. -- rect: left=245 top=224 right=245 bottom=347
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Cancel Call
  204. ----- HyperTalk script -----
  205. -- this script hangs my modem up (it's a Hayes-compatible)
  206. -- I don't understand how it does it in terms of HyperTalk, I just
  207. -- copied the Dial routines from the stack script & started dickin'
  208. -- with 'em
  209. -- the Modem Offline button script is the same
  210. on mouseUp
  211.   send "dial " & quote & " ATH " & quote & " with modem " & quote & " ATZ " & quote to HyperCard
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 17 (field)
  217. -- low flags: 81
  218. -- high flags: 2007
  219. -- rect: left=6 top=41 right=281 bottom=244
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 0
  223. -- font id: 3
  224. -- text size: 9
  225. -- style flags: 0
  226. -- line height: 12
  227. -- part name: info
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   hide the target
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 23 (button)
  236. -- low flags: 00
  237. -- high flags: 0000
  238. -- rect: left=379 top=42 right=69 bottom=414
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 26635 / 26635
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: help
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   set visible of card field "info" to not the visible of card field "info"
  250. end mouseUp
  251.  
  252.  
  253.  
  254. -- part 25 (button)
  255. -- low flags: 00
  256. -- high flags: 8000
  257. -- rect: left=402 top=194 right=221 bottom=465
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: 
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   put empty into field "long dist preamble"
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part contents for background part 9
  274. ----- text -----
  275. Local Area Code:
  276.  
  277. -- part contents for background part 10
  278. ----- text -----
  279. Dial for outside line:
  280.  
  281. -- part contents for background part 12
  282. ----- text -----
  283. Dial for long distance:
  284.  
  285. -- part contents for background part 20
  286. ----- text -----
  287. 2:36 PM
  288.  
  289. -- part contents for card part 17
  290. ----- text -----
  291.  
  292. HOW TO USE MODIFONE
  293.  
  294. ‚Ä¢ Choose speaker or modem. Click Local or Long Distance to dial.  (Is your modem connected and turned on before you use a modem setting?)   
  295.  
  296. ‚Ä¢ If you don‚Äôt need to dial anything for an outside line, clear that field.
  297.   
  298. ‚Ä¢ The - Dial for long distance - field is automatically updated by the Area Codes button. You may also type an area code in. You may also type the long distance number into the "Dial What Number" box if this field is blank, as when you first open ModiFone.
  299. Finally, you can type a number into the Message Box and hit the proper "Dial" button.
  300.  
  301. BUTTONS
  302.  
  303. ‚Ä¢ Press Cancel Call to cut off modem dialing 
  304. (or ringing)
  305.  
  306. ‚Ä¢ Press Modem Off when someone answers or you pick up the phone.
  307.  
  308. ‚Ä¢ Press Clear to Clear the Dial for long distance field.
  309.  
  310. FINDING AREA CODES
  311.  
  312. ‚Ä¢ The Area Codes button will find a stack named "ModiFone's Area Codes". 
  313.  
  314. This second stack contains a new button which will snatch the area code from a card after you've searched for a city or state or person (obviously, by unlocking the fields in ModiFone's Area Codes, you can add cities, towns, and even people's names).
  315.  
  316. When you've grabbed the area code, it appears with its "1-" prefix in 
  317. "Dial for long distance". 
  318. ==================================Original by Robin Shank and Ted Kaehler of Apple Computer.  Thanks to Apple for the swell HyperCard Party at MacExpo. This version & ModiFone's Area Codes by Craig O'Donnell / Dadadata‚Ñ¢ MIDI Systems.
  319.  
  320. GEnie: DADADATA-COD
  321. Delphi & PAN: DADADATA
  322. V1: 10/4/87
  323.  
  324.  
  325.  
  326. -- part contents for background part 1
  327. ----- text -----
  328. 312